10 REM TRAFFIC JAM!/(C) 1989
20 CLR:DIM U,J,R,SC,V,S,SY,TM,V
30 RESTORE:FORX=.TO6:READH1(X),N1(X):NEXT:GOSUB560
40 POKE53248+21,.:POKE53281,.:POKE53280,.:PRINTCHR$(147)CHR$(142)CHR$(8)
50 POKE53272,31:POKE214,10:PRINT:PRINTTAB(15)"WORKING ..."
60 FORX=12288TO12800:READD:POKEX,D:NEXT:FORX=49223TO49572:READD:POKEX,D:NEXT
70 PRINT"[147]":POKE214,4:PRINT:PRINT""TAB(8)"RUN MAGAZINE PRESENTS"
80 PRINT""TAB(2)"[213][178][201][178][192][201] [213][192][201][178][192][174][178][192][174][213][178][201][213][192][201]  [213][178][201][213][192][201][213][201][213][201]"
90 PRINTTAB(2)"[154] [194] [194][192][177][201][194][192][194][194][192] [194][192]  [194] [194]     [194] [194][192][194][194][202][203][194]"
100 PRINTTAB(2)"[159] [177] [177]  [177][177] [177][177]  [177]  [202][177][203][202][192][203] [202][192][203] [177] [177][177]  [177]"
110 PRINT""TAB(6)"[153](C) 1989 JEFFREY D. PANICI"
120 PRINT""TAB(12)"FOR THE C-64!":PRINT""TAB(8)"[152]JOYSTICK IN PORT-TWO!"
130 PRINT""TAB(5)"PRESS FIRE[160]BUTTON TO BEGIN!":J=56320:WAITJ,16,16
140 PRINT"[147]":PRINTCHR$(147)"[144]       [146]TRAFFIC [154]JAM! - [153](C) 1989[144]         [146]"
150 PRINT"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]   [171]"
160 PRINT"[151][171][195][195][195][195][179]   [171][195][195][195][179]   [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
170 PRINT"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]   [171]"
180 PRINT"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]   [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
190 PRINT"[151][171][195][179]   [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]   [171]"
200 PRINT"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]   [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
210 PRINT"[151][171][195][195][195][179]   [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179] SCORE [154]0"
220 REM INITILAZATION
230 U=1:T=2:H=3:SC=.:V=53248:S=54272:SX=45:SY=828:RESTORE
240 FORX=.TO5:READH1(X),N1(X):NEXT
250 TM=49223:P=2040:B=192:W1=PEEK(V+30):W2=PEEK(V+31)ANDU:LV=1
260 FORX=.TO24:POKES+X,.:NEXT:POKES+6,240:POKES+24,15:SYS49223
270 POKE2040,192:POKE2040+U,193:POKEV+21,255:POKEV,65:POKEV+1,230
280 POKE2040+2,194:POKE2040+3,195:POKE2040+4,196:POKE2040+5,197:POKE2040+6,198
290 POKE2040+7,199
300 POKEV+2,110:POKEV+3,87:POKEV+4,210:POKEV+5,110:POKEV+6,98:POKEV+7,136
310 POKEV+8,156:POKEV+9,158:POKEV+10,56:POKEV+11,182:POKEV+12,179:POKEV+13,207
320 POKEV+14,70:POKEV+15,63:TI$="000000"
330 W1=PEEK(V+30):W1=PEEK(V+30):W1=PEEK(V+30):W2=PEEK(V+31):W2=PEEK(V+32)
340 REM MAIN LOOP
350 FORX=1TOLV:SYS49408:NEXT:W1=PEEK(V+30):IFW1ANDUTHEN400
360 W2=PEEK(V+31):IFW2ANDUTHEN430
370 PRINT" ";:PRINTVAL(TI$):IFVAL(TI$)>40-LVTHEN430
380 IFLV=25THENLV=1
390 GOTO340
400 IFW1=129THENGOTO520
410 GOTO430
420 GOTO340
430 REM GAME OVER
440 POKEV+21,.:FORX=.TO24:POKES+X,.:NEXT:POKES+24,15:POKES+5,80:POKES+12,160:POKES+6,255
450 POKES+13,252:POKES+4,17
460 FORI=254TO50STEP-4:POKES+I,I:FORJ=1TO5:NEXT:NEXT
470 POKES+1,10:POKES+8,1:POKES+5,112:POKES+6,252:POKES+4,129:POKES+11,129
480 FORP=1TO1300:NEXT:POKES+24,.
490 PRINT"[147]":PRINTTAB(13)"GAME OVER":PRINT""TAB(12)"[154]FINAL SCORE
500 [153]""[163]15);SC:[153]"PRINT       BETTER LUCK NEXT TIME!!!"
510 [129]P[178]1[164]3000:[130]:[138]70
520 SC[178]SC[170]100[172]LV:[129]X[178].[164]24:[151]S[170]X,.:[130]:[158]49559:[141]1240:[151]214,21:[153]
530 [153][163]34);SC:LV[178]LV[170]2:[153]"    ":[137]260
540 [131] 25,30,33,135,42,62,50,60,42,62,50,60,0,0
550 [143] CHAR DATA
560 [151]56334,.:[151]1,51:[151]781,9:[151]782,.:[151]90,.:[151]91,216:[151]88,.
570 [151]89,64:[158]41964:[151]1,55:[151]56334,1:[151]54272,216:[151]53272,30
580 [135]A:[139]A[178][171]1[167][142]
590 [129]X[178].[164]7:[135]D:[151]14336[170]A[172]8[170]X,D:[130]:[151]53272,31:[137]580
600 [131] 107,,127,128,128,128,127,,.
610 [131] 67,,255,,,,255,,.
620 [131] 115,,254,1,1,1,254,,.
630 [131] -1
640 [143] SPRITE DATA
650 [131] ,,,,,,,,,,,,,,.
660 [131] ,56,,,56,,,16,,,120,,,20,.
670 [131] ,16,,,40,,,36,,,,,,,.
680 [131] ,,,,,,,,,,,,,,.
690 [131] ,,,,,,,,,,,,,,.
700 [131] ,,,,,,,,,,62,,,18,.
710 [131] ,9,,,60,255,224,48,138,252,47,63,226,41,161
720 [131] 145,60,255,63,7,,224,,,,,,,,.
730 [131] ,,,,,,,,,,,,,,.
740 [131] ,,,,,,,,,,,,,112,.
750 [131] 3,168,,29,88,63,234,168,96,21,88,243,159,232,244
760 [131] 193,152,254,127,56,3,128,224,,,,,,,.
770 [131] ,,,,,,,,,,,,,,.
780 [131] ,,,,,,,,,,,,,,.
790 [131] ,,,62,,,18,,,9,,,60,255,224
800 [131] 48,138,252,47,63,226,41,161,145,60,255,63,7,,224
810 [131] ,,,,,,,,,,,,,,.
820 [131] ,,,,,,,,,,,,,,.
830 [131] ,,,,,,112,,3,168,,29,88,63,234
840 [131] 168,96,21,88,243,159,232,244,193,152,254,127,56,3,128
850 [131] 224,,,,,,,,,,,,,,.
860 [131] ,,,,,,,,,,,,,,.
870 [131] ,,,,,,,,,,,62,,,18
880 [131] ,,9,,,60,255,224,48,138,252,47,63,226,41
890 [131] 161,145,60,255,63,7,,224,,,,,,,.
900 [131] ,,,,,,,,,,,,,,.
910 [131] ,,,,,,,,,,,,,,112
920 [131] ,3,168,,29,88,63,234,168,96,21,88,243,159,232
930 [131] 244,193,152,254,127,56,3,128,224,,,,,,.
940 [131] ,,,,,,,,,,,,,,.
950 [131] ,,126,,,255,,1,159,128,3,15,192,6,7
960 [131] 224,12,3,240,24,1,248,55,28,252,119,28,248,16,.
970 [131] 136,16,240,216,16,240,216,16,240,200,16,240,136,16,240
980 [131] 152,31,255,224,,,,,,,,,,,,,,7
990 [143] MACHINE LANGUAGE INTERRUPT
1000 [131] 120,169,84,141,20,3,169,192,141,21,3,88,96,173,148
1010 [131] 192,208,40,174,149,192,232,224,104,208,2,162,,189,150
1020 [131] 192,141,,212,232,189,150,192,141,1,212,232,189,150,192
1030 [131] 141,4,212,232,189,150,192,141,148,192,142,149,192,206,148
1040 [131] 192,32,,193,32,30,193,76,49,234,169,234,141,21,3
1050 [131] 88,96,7,35,143,10,17,15,48,11,17,15,143,12,17
1060 [131] 15,210,15,17,15,195,16,17,15,210,15,17,16,143,12
1070 [131] 17,15,210,15,17,15,24,14,17,15,48,11,17,15,195
1080 [131] 16,17,15,210,15,17,15,143,12,17,15,143,10,17,15
1090 [131] 48,11,17,15,143,12,17,15,210,15,17,15,195,16,17
1100 [131] 15,210,15,17,15,143,12,17,15,31,21,17,15,209,18
1110 [131] 17,15,165,31,17,15,49,28,17,15,96,22,17,15,31
1120 [131] 21,17,15,102,102,238,2,208,206,4,208,238,6,208,206
1130 [131] 8,208,238,10,208,206,12,208,232,224,255,208,251,162,.
1140 [131] 96,30,193,173,,173,,220,74,176,3,206,1,208,74
1150 [131] 176,3,238,1,208,74,176,42,173,,208,208,31,173,16
1160 [131] 208,41,1,208,16,173,16,208,9,1,141,16,208,169,80
1170 [131] 141,,208,96,234,234,173,16,208,41,254,141,16,208,206
1180 [131] ,208,96,234,234,74,176,32,238,,208,240,30,169,80
1190 [131] 205,,208,208,20,173,16,208,41,1,240,13,173,16,208
1200 [131] 41,254,141,16,208,169,,141,,208,96,234,234,173,16
1210 [131] 208,9,1,141,16,208,96,234,234,96,96,96,96,32,30
1220 [131] 193,32,30,193,96,,120,169,49,141,20,3,169,234,141
1230 [131] 21,3,88,96,102
1240 [143] MUSIC ROUTINE
1250 [129]X[178].[164]24:[151]S[170]X,.:[130]
1260 [151]S[170]24,15:[151]S[170]5,85:[151]S[170]6,85:[151]S[170]4,33:[151]S[170]24,15
1270 [129]X[178].[164]5:[151]S[170]1,H1(X):[151]S,N1(X)
1280 [139]H1(X)[178]50[167][129]T[178].[164]400:[130]
1290 [129]T[178].[164]200:[130]:[130]:[129]X[178].[164]24:[151]S[170]24,.:[130]:[151]S[170]6,240:[151]S[170]24,15
1300 [142]